Public Class frmXMLStep2

    Private Sub frmXMLStep2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        Dim i As Integer

        While mdiXMLImport.w_sServiceNo(i) <> String.Empty
            lsv_Channels.Items.Add(mdiXMLImport.w_sChannelName(i))
            i += 1
        End While
    End Sub
End Class